timesetup(1)
print time()
delay 1000
print time()
timer 15 * 1000, [RUNPROGRAM] 
wait
[RUNPROGRAM]
cls
PRINT "TIME" & "," & time()
serialprintln "TIME" & "," & time()
let query = "api.openweathermap.org/data/2.5/weather?q=Denton,uk&lang=en&units=metric&appid=PUTIDHERE" 
delay 500
let ret = wget(query)
let temp = json(ret,"main.temp")
let press = json(ret,"main.pressure") 
let humid = json(ret,"main.humidity")
let speed = json(ret,"main.speed")
speed1 = int(speed + 0.5)
let dir = json(ret,"main.deg")
let icon = json(ret,"main.icon")
let desc = json(ret,"description")
serialprintln "Today," & desc & "," & icon & "," & temp & "," & press &"," & speed1 & "," & dir & "," & humid

let query = "api.openweathermap.org/data/2.5/forecast/daily?&units=metric&q=Denton,UK&appid=PUTIDHERE"
Delay 1000
let ret = readopenweather(query,2) 
let tim = json(ret,"dt")
let tim = unixtime(tim)
let icon = json(ret,"icon")
let main = json(ret,"main")
let desc = json(ret,"description")
let temp_min = json(ret,"temp.min")
let temp_max = json(ret,"temp.max")
let pres = json(ret,"pressure")
let humid = json(ret,"humidity")
let speed = json(ret,"speed")
speed1 = int(speed + 0.5)
let deg = json(ret,"deg")
let icon = json(ret,"icon")
serialprintln "Day2," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg
serialflush
let query = "api.openweathermap.org/data/2.5/forecast/daily?&units=metric&q=Denton,UK&appid=PUTIDHERE"
DELAY 1000
let ret = readopenweather(query,3) 
let tim = json(ret,"dt")
let tim = unixtime(tim)
let icon = json(ret,"icon")
let main = json(ret,"main")
let desc = json(ret,"description")
let temp_min = json(ret,"temp.min")
let temp_max = json(ret,"temp.max")
let pres = json(ret,"pressure")
let humid = json(ret,"humidity")
let speed = json(ret,"speed")
speed1 = int(speed + 0.5)
let deg = json(ret,"deg")
let icon = json(ret,"icon")
serialprintln "Day3," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg
serialflush
let query = "api.openweathermap.org/data/2.5/forecast/daily?&units=metric&q=Denton,UK&appid=PUTIDHERE"
DELAY 1000
let ret = readopenweather(query,4) 
let tim = json(ret,"dt")
let tim = unixtime(tim)
let icon = json(ret,"icon")
let main = json(ret,"main")
let desc = json(ret,"description")
let temp_min = json(ret,"temp.min")
let temp_max = json(ret,"temp.max")
let pres = json(ret,"pressure")
let humid = json(ret,"humidity")
let speed = json(ret,"speed")
speed1 = int(speed + 0.5)
let deg = json(ret,"deg")
let icon = json(ret,"icon")
serialprintln "Day4," & tim & "," & desc  & "," &   icon & "," & temp_min & "," & temp_max & "," & pres & "," & humid & "," & speed1 & "," & deg
serialflush
wait
